home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / merlin / rexx / test2.rexx < prev   
OS/2 REXX Batch file  |  1999-07-12  |  725b  |  43 lines
  1. /* RUN "rx MCP:rexx/CelsiusToFahrenheit.rexx %n"   */
  2.  
  3. Arg node_number                         /* node we were run from */
  4. Host = 'MCPREXX.'node_number            /* the Trion MCP Arexx port */
  5. Options results
  6. Address value host
  7. options failat 15
  8.  
  9.  
  10. /* say "node: "node_number */
  11. if node_number = "" then do
  12.    say "error .. rexx script not started with %n on command line"
  13.    exit 1
  14. end
  15.  
  16. /*
  17. SetReg "Reg 6 Value 123"
  18. SetReg "6 123"
  19.  
  20. Set    "Reg 7 Value" 56
  21. Set    "Reg 7" 56
  22.  
  23. GetReg "6"
  24. reg6 = result
  25. Say "Register6="reg6
  26. GetReg "Reg=7"
  27. reg7 = result
  28. Say "Register7="reg7
  29. */
  30.  
  31.  
  32. WriteString "5" 123
  33.  
  34. EmptyList "6"
  35.  
  36. exit 0                         /* einde programma */
  37.  
  38.  
  39.  
  40. test:          /*  een functie: 'call test' */
  41. return 0
  42.  
  43.